DPDIN'T - DATA PRODUCTS DISK INTERRUPT SERVICE MACRO, V36 19:24 -(-JUN-69 PAGE 1 

1 !*»»C0PYP1GHT 1969, DIGITAL TQUIPMENT CORP., MAYNARD, MASS.»»» 

2 

3 

■t ;TH1S SUB-PROGRAM ASSEMBLED /'ITH SYSTEM PARAMETER FILE - S.M4C(V414) 

5 XLIST 

6 LIST 

7 TITLE DPDINT - DATA PRODUCTS DISK INTERRUPT SERVICE 

8 SUBTTL A. BLACKINGTON/CMF TS 12 JAN 69 V431 

9 XP VDPDIT,401» 
10 

11 000204 OCB=204 jDATA-CONTROL-B 

12 000270 OF=270 ;DISK-FiLE 

13 000270 OSK=Dr 
14 

15 ;ThIS next CONSTANT MUST BE SET TO MATCH CAPACITY OF THE PARTICULAR DISK FILE- 

16 INTERNAL LRHIGH IHIGHEST LEGAL LOGICAL BLOCK NUMBER 

17 000000 000000 127777 LBHIGH! 13C0(!6l-l 
18 

19 (START A KRITE ON DISK FILE 

20 (AT ENTRY, C(TAC 18-35)= LOGICAL BLOCK NUMBER 

21 ! C(TAC11 « lOWD 
22 

23 INTERNAL DFWRT,DFREO 

24 EXTERNAL DSKXB , DCBB I T , DSKB I T , DSKCHN , DCBCHN , ERRPNT , 0SKX9 

25 ENTRY LDDINT 

26 000001 LDDINT: 
27 

28 

29 000001 DFWRT! 

30 000001 202100 000201' DFWRTl: mOVEM TACliIOWRD 

31 000002 200100 000204' MOVE TACl , CBLKO DCB , I OWRD] 

32 000003 264000 000120' JSR DFRW ISET UP DISK ADDRESS 
33 

34 

35 000004 661040 000200 TLO TACWLE (ENABLE WRITE LOCK ERROR 

36 000005 541040 000000 HRRI TAC , DSKCHN : I TURN ON DISK 

37 000006 435040 002310 lORI TAC, WRT+CLE+E I S*ENE 

38 STARTDV OSKrEXTERNAL PIOFF.PION 

39 000007 700600 000000 CONQ PI.PIDFF 

40 000010 727201 000000 CONO DSK,(TAC) 

41 000011 546040 000200* HLRM TAC.DSKCDN 

42 000012 700600 003000 CONO P1,P10N 

43 000013 551040 000il00 HRR2I TACOCBCHN 

44 000014 720601 003750 CONO DCB , 0UT+0AR+BR*P1B*DFNUM( TaC ) ITURN ON DAT A-CONTROL-B 

45 000015 263140 000000 POPJ POP, 

46 ISIMILAR ROUTINE FOR READ 
47 

48 000016 DFREOi 

49 000016 202100 000201' DFREDl; MOVEM TACliIOWRD 

50 000017 200100 000205' MOVE TACl , [BLK I DCB, I OWRO] 

51 000020 264000 000120' jSR DFRW 
52 

53 000021 541040 000005' HRRI TAC, DSKCHN 

54 000022 435040 001.310 lORI TAC , RED*CLE*E I S + ENE ITURN ON DISK 

55 STARTDV DSKfEXTERNAL PIOFF,PION 

56 000023 700600 000007' CONO PI.PIOFF 
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62 ei00031 263140 000000 



POPJ. PDP, 
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63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 

Bl 

62 

83 

84 

85 

B6 

67 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

1("1 

102 

103 

104 

105 

106 

1017 

108 

109 

110 



000032 



333 
(134 

J35 
936 
937 
!I4 
J41 
342 
343 



;SERVICE INTERRUPT ON DATA-CONTROL-B 

INTERNAL ETCHECK.FTMONP 
IFE FTCHECK+FTMONPi< 
INTERNAL DCBINT 



300000 000000 DCBINTi 
> 
OCBINll 



202040 
551040 
700601 
720640 
551040 
720740 
727201 
200040 
254620 



000203' 

000000 

001000 

000202' 

000021' 

000400 

010010 

000203' 

000032' 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

000044 264000 000032' JSROCB; JSR DCBINT 



MOVEM TAC.ACSAV 
HRRZI TAC.OCBBIT 
CONO PI .1000(TAC) 
CONl OCB.OCBERR 
HRRZI TAC(DSKCHN 
CONSO DCBfOUT ISKIP 
CONO DF,END+EIS(TAC) 
MOVE TACACSAV 
JEN S>DC8!NT 



ITURN OFF DCB CHANNEL 

ISAVE STATUS OF DATA CONTROL 

IF WRITING 



IJSR STORED IN INTERRUPT CELL 



iDISK « nCB FLAGS 



000100 


ADe=1829 i 


100000 


ADT=1B20 J 


000040 


ALM=1B30 i 


000400 


CME=1B27 J 


001000 


DCE=1B26 1 


010000 


MISS=1B23 ; 


000020 


DRLATE=1B31 I 


000010 


RCE=1832 ) 


000004 


PAR=ia33 1 


400000 


105=1818 ; 


000001 


N0PH=1B35 ; 


000200 


WLE=1B28 ( 


000400 


0UT=1B27 ; 


000200 


CLE=1B28 i 


000002 


FER=1B34 i 


001577 


DVERAS=DRLATE+RCE 


001000 


BR=1B25 ! 


002000 


DAR=1B25 ; 


000050 


0FNUM=5B32 1 


010000 


END=1B23 j 


000010 


E1S=1B32 ) 


004000 


XM0VE=1B24 J 


000300 


P18 = 3B29 11 


001000 


RED = 1B26 (I 


002000 


WRT = 2B26 ;I 


000100 


ENE = 1829 ;l 



ADDRESS ERROR 

ADDRESS TERMINATEO 

ALARM 

COMMAND ERROR 

DATA CLOCK ERROR 

DATA MISSED FLAG 

DATA REQUEST LATE 

READ COMPARE ERROR 

PARITY ERROR 

IDLE STATE <1 IF IDLE) 

OPERABLE (1 IF NOT) 

WRITE-LOCK ERROR 

OUTPUT INDICATION 

CLEAR ERROR FLAGS 

FILE ERROR 

♦PAR+ADE*CMF+DCE*ALM*NOPR*FER 

BUFFER REQUEST FLAG FOR DCB 

DATA ACCUMULATOR REQUEST 

DISK NUMBER FOR DATA CONTROL 

END-SECTOR 

ENABLE IDLE STATE 

BUFFER ACCUMULATOR MOVE FLAG 

PACK 2 la-BIT BYTES 

READ INDICATION 

WRITE INDICATION 

ENABLE ERROR INTERRUPT 



DPDINT 
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111 








112 








113 








114 








115 








116 








117 








118 


000045 


727360 


000200" 


119 


000046 


254000 


000045' 


120 


000047 


264000 


000000 


121 


00PI050 


551040 


000034" 


122 


000051 


700601 


001000 


123 


000052 


513000 


000200' 


124 


000053 


201000 


000000 


125 


000054 


332000 


000176' 


126 


000055 


254000 


000115' 


127 


000056 


2B1100 


001577 


128 


000057 


720700 


000400 


129 


00006B 


660100 


000200 


130 


000061 


7273512 


000000 


131 


000062 


402000 


000175' 


132 


000063 


200040 


000202' 


133 


(?00064 


606040 


0i;^a00 


134 


000065 


727300 


001573 


135 


000066 


4350B0 


200000 


136 


000067 


727300 


000004 


137 


000070 


435000 


100000 


138 


000071 


620100 


001577 


139 


000072 


727302 


000000 


140 


000073 


435000 


400000 


141 


000074 


727200 


000200 


142 


000075 


326000 


000107' 


143 


000076 


336000 


000175' 


144 


000077 


254000 


000000 


145 








146 








147 


000100 


200040 


000174' 


148 


000101 


271040 


000001 


149 


000102 


221040 


000054 


150 


000103 


200100 


000175' 


151 


000104 


720740 


000400 


152 


000105 


2540r)i0 


000016' 


153 


000106 


254000 


000001' 



IINTERRUPT ROUTINE TO HANDLE SECTOR-ENO FLAG, 
ICHECK FOR ERRORS. IF THE JOB IS COMPLETED (SIOWD 
(DEVICE INDEPENDENT PACKAGE, ELSE CONTINUE THE JOB, 

INTERN DSKINT 
EXTERNAL DFINT.DSKSAV 



!) . GO TO 



000200' DSKINTi CONSD DF,«>DSKCON 
JRST DSKINT 
JSR DSKSAV 

HRRZI tac.dcbbit 

CONO PI.1000(TAC) 
HLLZS DSkCON 
MOVE! IOS,0 
SKIPE OSKIOS 
JRST DSKIN3 
MOVEI TACl.DVERAS 
CONSZ DCB.OUT 
TRO TACl.WLE 

CONSZ DF,{TAC1) 
SETZM SIOWD 
MOVE TAC.OCBERR 
TRNN TACMISS 
CONSZ OF,DVERAS-PAR 
ORI lOS.IOOERR 
CONSZ OF, PAR 
lORI IOS,IODTER 
TRZ TACl.DVERAS 
CONSZ DF,(TAC1) 
ORI I0S,I0IMPM 
CONO DF,CLE 
JUMPN IOS,OSKIN2 
SKIPN SIOWD 
JRST DFINT 



MOVE TACSRECN 
ADDI TACl 
IMULI TAC,»D44 
MOVE TAC1,SI0W0 
CONSO DCS, OUT 
JRST DFREDl 
JRST OFWRTl 



(ALTERED BY INITIALIZATION 
IMAKE SURE DCB IS OFF 



lERROR WAIT? 
lYES 



lERROR? 

lYES, DO NOT DO MORE NOW 

IPICK UP DATA-CONTROL STATUS : 

IDATA-MISSED FLAG ON? 

INO. DISK ERRORS? 

lYES. SET DEVICE ERROR FLAG, ' 

IPARITY ERROR? 

I YES 

IWRITE-LOCK? 

lYES 

ICUEAR DISC ERRORS 

IJOB DONE? 

lYES, RETURN TO DEV. INDEP, RljUT. 

IWITH ERROR FLAGS 



I 



AND BLOCK NUMBER 



nPoi^T 
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154 


?001PI7 






DSKIN2! 








155 


("00107 


551040 


000037' 




HRREI 


TAC.OSKCHM 


156 
157 

158 


000110 


727201 


010010 




CONO 


DF 


.END+EIS(TAC) 


000111 


202000 


000176' 




MQVEM 




lOS.DSKIOS 


159 


000112 


201000 


401577 




MOVEI 




lOS, I0S+DVER4S 


160 


000113 


542000 


000200' 




HRRm 




ios.dSkcon 


161 
162 
163 


000114 


263140 


000000 




POPj 




PDP,0 IDISMISS 


000115 


200000 


000176' 


DSKIN3: 


MOVE 




lOS.DSKIOS 


164 


000116 


727200 


000000 




CONO 


DF 


.0 


165 


000117 


2540ti0 


000077' 




JRST 




DFINT 



ISEND END ANO ENABLK 
IFOLLOHING ERROR 
ISAVE ERROR FLAGS 



IPICK 



FOR IDLE 



DPOIMT 
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166 
167 








iSCT UP FOR READ AND WRITE 


168 








IFE FTCHECK*FTMOMP,< 


169 


000120 


000000 


000000 


nFRW! 


? 


170 








> 




171 
172 


000121 


2021C0 


000000 


OFRWl i 


MOVEM TAC1.DSKX8 


173 








(CONVERT FROM LOGICAL TO PH 


174 
175 








JENTEH 


WITH L0GIC4U NUMBER 


176 


P100122 


202040 


000177 


CNVBLK 


MOVEM TACSLRLK 


177 


000125 


553000 


000001 


CNVBK2 


HRRZS TAC 


178 








IFN FTRCHKi< 


179 
180 


000124 


313040 


000000 1 




CAMLF TAC.LBHIGH 


ISl 
182 

183 


000125 


254200 


000161' 




HALT CNVFRR 








> 




184 


000126 


231040 


000054 




IDIVI TAC,»044 


195 


000127 


202040 


000174' 




MOVE'' TAC.SReCn 


186 


000130 


402000 


000175' 




SETHM SIOWD 


187 


000131 


242040 


000006 




LSH TACi6 , 


188 


000132 


27B040 


000002 




ADO TAC.TACl 


189 


000133 


720600 


000000 




CONO OCH.il' 


190 


000134 


727140 


000001 




OATAO OF.TAC 


191 


000135 


554040 


000201' 




MLRi! TACIOWRO 


192 


000136 


301040 


777600 




GAIL TAC,-200 


193 


000137 


254000 


000152' 




JRST CNVHKl 


194 


000140 


275100 


000054 




SUBI TAC1,»D44 


195 


000141 


242100 


000007 




LSH TAC1,7 


195 


000142 


301042 


000000 




CAIL TAC,(TAC1) 


197 
198 


000143 


254tJ00 


000152' 




JRST CNVBKl 


199 


000144 


200040 


000201' 




MOVE TACIDWRD 


2P10 


000145 


506100 


000201' 




HRLM TACIiTOWRQ 


2l?l 


000146 


217000 


000002 




MOVMS TACl' 


202 


000147 


507000 


000002 




HRLS TACl 


2f!3 


000150 


270040 


000002 




ADD TAG, TACl 


204 


000151 


203040 


000175' 




MOVEM TAC. SIOWD 


205 












2P16 


000152 


727340 


100000 


CNV8K1; 


CONSn DF.ADT 


207 


000153 


254000 


000152' 




JRST .-1 


208 


000154 


551040 


000050' 




WRR2I TACDCSBIT 


209 


000155 


700601 


002000 




CONO PI.2000(TaC) 


210 


000156 


205040 


401577 




MOVSI TACIDS + DVERAS 


211 


000157 


402000 


000176' 




!5ET£M DSKIOS 


212 


000160 


254020 


000120' 




JRST UDFRW 


213 








IFN FTRCHK,< 


214 


000161 


201000 


200000 


CNVERR; 


MOVEI lOS.IOOERR 


215 


000162 


254000 


000117' 




JRST OFU'T 


216 








> 





ISET UP INTERRUPT LOC 



ILOGICAL BLOCK NUMBER IN RANGE 
((COMPARE WITH HIGHEST LEGAL)? 

INO. HALT - IF CONTINUE PUSHED. 
(THEN FLAG AS DEVICE ERROR 



(SAVE THE Block number 

(CLEAR SAVED lOWD 



(INSURANCE 

(SEND OUT ADDRESS 

(WILL This i/o cause a change 

( in position ARM DURING READ OR 
1 WRITE? 

(MAYBE. 



(NO, GO AHEAD AS IS. 

(PUT SMALLER SIZE IN lOWO, 

(STASH AWAV NEXT lOWD, 



(ADDRESS GO OK? 
(WAIT FOB IT 

(TURN ON DCB CHANNEL 



(HERE ONLY IF OPERATOR PUSHES CONTINUE AFTER HALT 
(FLAG AS DEVICE ERROR 
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217 
218 
219 

22ia 

2?1 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

231 

235 

236 

237 

238 

239 

210 

211 

2*2 

213 

214 

245 

216 

217 

218 

219 

250 



000163 
000161 
000165 
000166 
000167 
Ci00l70 
000171 
000172 
000173 



4a20l'0 
200010 
202010 
7273^0 
2510?0 
551040 
435010 
700631 
263140 



000171 
000175 
000176 
000177 



000200 
000201 
000202 
000203 

000204 
000201 
000205 



i WAIT FOR DISK TO BE TURNED D^J 
INTERNAL DISKUP 



000121' 
000011 ' 
000000 

000001 

000166' 

000000 
000154' 
002200 
000000 



DISKUPl smf DSKX8 

MOVE TACJSRDCB 
MOVEM TACfOSKX9 
CONS? DF.NOPR 
JRST ,-1 

HRR2I TAC.DSKBIT 
lORI TACDCBBIT 
CONO PI.22ei0(TAC) 
POPJ POP. 



000000 
0000i>0 
000000 

000e?0 



000000 

E .' 

0000C0 
000000 



7205«"0 
7201''0 



000000 
000000 
000000 

000000 



000000 
000000 
000000 
000030 



000201' 
000201' 



NO ERRORS DETECTED 
PROGRAM RREAK IS 000206 



IZERO THE BLKI/SLKO WORD 

.STORE JSR EXECUTED ON BI.K1/BL<0 COMPLETION 



rXTERN^LTRESoiD,DSK,OS,.LBLK,DFRW.ACSAV.DCBERR.nCBSNT.IOWRD.DSKCON 



EXTE 

INTERNAL DCBINl.DFRWl 

> 

IFE FTCHFCK+FTMONP,< 

INTERNAL OSKCON 

SRECN! 2 

SIOWd: 7 

DSKIOS! i 

SLBLk: 7 



ISAVE OF BLOCK NUMBER 
(NEXT lOWD TO USE 
I ERROR FLAGS 



ILOGICAL BLOCK NUMBER LAST SELECTED 
ICLEARED ON EACH CALL TO DFWRT OP DFREO 



OSKCON! 

lOWHO! 

DCBERHl 

ACSAv: 

> 

OPOENU I 









FNO 



□POINT 
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ACSAV 


C1B02P13' 




ALM 


(^enens 




CME 


(500400 




CNVBLK 


000122' 




OCB 


0002f)4 




OCBERR 


000202' 




OCE 


001000 




OFNUM 


000050 




DFRW 


000120' 




OFWRTl 


000001' 




ORLATE 


000020 




DSKCHN 


000107' 


EXT 


DSKIN3 


000115' 




DSKSAV 


000047 ' 


EXT 


DVERAS 


001577 




ENE 


000170 




FTCHEC 


000000 


INT 


IDS 


4000?i0 




lOIMPM 


400000 


INT 


JSRDCB 


000044' 




MISS 


010000 




P18 


000300 




PIOFF 


000023' 


EXT 


RED 


001000 




SRECM 


000174' 




VDPDIT 


000401 


INT 


XMOVE 


004000 





ADE 


000100 




RR 


001000 




CNVBKl 


000152' 




CNVERR 


000161' 




DCBBIT 


000171' 


EXT 


OCPINl 


000033' 




DF 


000270 




DFREO 


000016' 


INT 


DFRWl 


000121' 




diskup 


000163' 


INT 


nSK 


000270 




OSKCPN 


000200' 


INT 


OSKINT 


000045' 


INT 


DSKX8 


000163' 


EXT 


EIS 


000010 




ERRPNT 


000000 


EXT 


FTMONP 


000000 


INT 


IQDERR 


200000 


INT 


IDS 


000000 


INT 


LHHIGH 


000000 ' 


INT 


NOPR 


000001 




PAR 


0000?4 




PION 


000026' 


EXT 


SIOWD 


000175' 




TAC 


000001 


INT 


WLE 


000200 





ACT 


100000 




CLE 


000200 




CNVBK2 


000123' 




OAR 


P02000 




OCSCHN 


000027' 


rXT 


DCeiNT 


000032' 


INT 


DFINT 


000162' 


rXT 


OFREDl 


000016' 




DFWRT 


000001' 


TNT 


DPDEND 


000204' 




OSKBIT 


000170' 


FXT 


DSKIN2 


000107' 




DSKIOS 


000176' 




DSKX9 


000165' 


FXT 


END 


010000 




FER 


000002 




FTRCHK 777777 777777 




lODTER 


100000 


INT 


lOWRD 


000201' 




LDOINT 


000001' 


INT 


OUT 


000400 




PDP 


000003 


INT 


RCE 


000010 




SLBLK 


000177' 




TACl 


000002 


INT 


WRT 


002000 





A 


6# 


6 








ACl 


6# 


6 








4C2 


6# 


6 








AC3 


6# 










ACSAV 


71 


78 


246# 






ADE 


S5# 


If 








ADT 


86# 


2?6 








AEFERR 


6# 


6 








AL 


btt 


b 








ALM 


S7# 


IP^Ii) 








ASSCON 


6« 


5 








ASSPRG 


6# 


6 








S 


6# 


6 








I3R 


44 


1S!1# 








BUFPNT 


6# 


6 








BUFWRD 


b# 


6 








CLE 


37 


5 4 


98« 


141 




CLKR 


6# 


6 








CLSIM 


6# 


6 








CLSOUT 


6# 


6 








CME 


88# 


IS-B 








CMWB 


6# 


6 








CNVBKl 


193 


197 


2?6# 






CNVBK2 


177# 










CNVBLK 


176# 










CNVERR 


181 


214« 








COHC^T 


6# 


6 








D 


6# 


6 








OAR 


44 


102# 








DAT 


6# 


6 








OCB 


11# 


31 


44 


5i) 


fil 


OCBBIT 


2 4 


72 


121 


208 


227 


DCBCHN 


2 4 


43 


50 






DCBERR 


7 4 


132 


245# 






DCBINl 


71# 










DCBIM 


6 7 


69# 


79 


80 




OCE 


B9# 


170 








DCL 


li# 


6 








□ CUl 


6* 


6 








OCLO 


6# 


6 








DCLR 


6* 


6 








DDI 


6# 


6 








DDO 


6# 


6 








OEN 


6# 


6 








DEVADR 


6# 


6 








OEVSUF 


6# 


6 








DEVCHR 


6# 


6 








DEVCTR 


bit 


6 








DEVOAT 


6# 


6 








OEVEXT 


6# 


6 








tlEVFIL 


6# 


6 








OEVIAO 


6# 


6 








DEVIOS 


6« 


6 









74 



76 



128 



l-'l 



189 



DEVLOG 


6« 


6 






OEVMOD 


6* 


6 






QEVNAM 


5i» 


6 






OEVOAD 


6# 


6 






DEVPPN 


6# 


6 






OEVPTR 


5« 


6 






DEVSER 


6# 


6 






OF 


12# 


13 


77 


118 


OFINT 


115 


144 


165 


21b 


DFNUM 


44 


61 


1,'"3« 




OFREO 


23 


48* 






DFREOl 


49* 


152 






DFRW 


32 


51 


169* 


212 


OFRWl 


171# 








DFWRT 


?3 


29* 






DFWRTl 


3a* 


153 






DGF 


b* 


6 






OHNG 


6* 


6 






OIN 


6* 


6 






DIM 


6* 


b 






DISKUP 


219 


221* 






DLK 


t# 


6 






nnT 


bn 


6 






DN4E0R 


btt 


6 






DOU 


bH 


6 






[]PDE^D 


248* 








OR 


6* 


6 






ORL 


6* 


6 






DRLATE 


91* 


1,-0 






OR^J 


6# 


6 






OSER 


6# 


6 






nsi 


6« 


6 






OSK 


13» 


4t) 


57 




0SK8IT 


?4 


226 






OSKCKN 


24 


36 


53 


7b 


DSKCCN 
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